home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / RESIZOCX.ZIP / FORM1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-15  |  17.0 KB  |  532 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "ReSize Sample Application"
  6.    ClientHeight    =   4785
  7.    ClientLeft      =   1245
  8.    ClientTop       =   1275
  9.    ClientWidth     =   6405
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   5190
  21.    Icon            =   "FORM1.frx":0000
  22.    Left            =   1185
  23.    LinkTopic       =   "Form1"
  24.    ScaleHeight     =   4785
  25.    ScaleWidth      =   6405
  26.    Top             =   930
  27.    Width           =   6525
  28.    Begin VB.CommandButton Command8 
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H80000005&
  31.       Caption         =   "Center Form"
  32.       BeginProperty Font 
  33.          name            =   "Arial"
  34.          charset         =   0
  35.          weight          =   700
  36.          size            =   7.5
  37.          underline       =   0   'False
  38.          italic          =   0   'False
  39.          strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   375
  42.       Left            =   4680
  43.       TabIndex        =   21
  44.       Top             =   3720
  45.       Width           =   1335
  46.    End
  47.    Begin VB.CommandButton Command7 
  48.       Appearance      =   0  'Flat
  49.       BackColor       =   &H80000005&
  50.       Caption         =   "Tab Demo"
  51.       BeginProperty Font 
  52.          name            =   "Arial"
  53.          charset         =   0
  54.          weight          =   700
  55.          size            =   7.5
  56.          underline       =   0   'False
  57.          italic          =   0   'False
  58.          strikethrough   =   0   'False
  59.       EndProperty
  60.       Height          =   375
  61.       Left            =   3240
  62.       TabIndex        =   20
  63.       Top             =   3720
  64.       Width           =   1335
  65.    End
  66.    Begin VB.CommandButton Command6 
  67.       Appearance      =   0  'Flat
  68.       BackColor       =   &H80000005&
  69.       Caption         =   "Enable Form Minimum Sizing"
  70.       BeginProperty Font 
  71.          name            =   "Arial"
  72.          charset         =   0
  73.          weight          =   700
  74.          size            =   7.5
  75.          underline       =   0   'False
  76.          italic          =   0   'False
  77.          strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   375
  80.       Left            =   360
  81.       TabIndex        =   19
  82.       Top             =   4200
  83.       Width           =   2775
  84.    End
  85.    Begin VB.CommandButton Command5 
  86.       Appearance      =   0  'Flat
  87.       BackColor       =   &H80000005&
  88.       Caption         =   "Line Demo"
  89.       BeginProperty Font 
  90.          name            =   "Arial"
  91.          charset         =   0
  92.          weight          =   700
  93.          size            =   7.5
  94.          underline       =   0   'False
  95.          italic          =   0   'False
  96.          strikethrough   =   0   'False
  97.       EndProperty
  98.       Height          =   375
  99.       Left            =   1800
  100.       TabIndex        =   18
  101.       Top             =   3720
  102.       Width           =   1335
  103.    End
  104.    Begin VB.CommandButton Command4 
  105.       Appearance      =   0  'Flat
  106.       BackColor       =   &H80000005&
  107.       Caption         =   "Move things around"
  108.       BeginProperty Font 
  109.          name            =   "Arial"
  110.          charset         =   0
  111.          weight          =   700
  112.          size            =   7.5
  113.          underline       =   0   'False
  114.          italic          =   0   'False
  115.          strikethrough   =   0   'False
  116.       EndProperty
  117.       Height          =   375
  118.       Left            =   3240
  119.       TabIndex        =   17
  120.       Top             =   4200
  121.       Width           =   2775
  122.    End
  123.    Begin VB.CommandButton Command3 
  124.       Appearance      =   0  'Flat
  125.       BackColor       =   &H80000005&
  126.       Caption         =   "Change Fonts"
  127.       BeginProperty Font 
  128.          name            =   "Arial"
  129.          charset         =   0
  130.          weight          =   700
  131.          size            =   7.5
  132.          underline       =   0   'False
  133.          italic          =   0   'False
  134.          strikethrough   =   0   'False
  135.       EndProperty
  136.       Height          =   375
  137.       Left            =   360
  138.       TabIndex        =   16
  139.       Top             =   3720
  140.       Width           =   1335
  141.    End
  142.    Begin VB.CommandButton Command2 
  143.       Appearance      =   0  'Flat
  144.       BackColor       =   &H80000005&
  145.       Caption         =   "Help"
  146.       BeginProperty Font 
  147.          name            =   "Arial"
  148.          charset         =   0
  149.          weight          =   700
  150.          size            =   7.5
  151.          underline       =   0   'False
  152.          italic          =   0   'False
  153.          strikethrough   =   0   'False
  154.       EndProperty
  155.       Height          =   372
  156.       Left            =   4800
  157.       TabIndex        =   15
  158.       Top             =   720
  159.       Width           =   1332
  160.    End
  161.    Begin VB.Frame Frame1 
  162.       Appearance      =   0  'Flat
  163.       BackColor       =   &H00C0C0C0&
  164.       Caption         =   "Misc. Info"
  165.       BeginProperty Font 
  166.          name            =   "Arial"
  167.          charset         =   0
  168.          weight          =   700
  169.          size            =   7.5
  170.          underline       =   0   'False
  171.          italic          =   0   'False
  172.          strikethrough   =   0   'False
  173.       EndProperty
  174.       ForeColor       =   &H80000008&
  175.       Height          =   972
  176.       Left            =   960
  177.       TabIndex        =   14
  178.       Top             =   2280
  179.       Width           =   4452
  180.       Begin VB.CheckBox Check1 
  181.          Appearance      =   0  'Flat
  182.          BackColor       =   &H00C0C0C0&
  183.          Caption         =   "Current Client?"
  184.          BeginProperty Font 
  185.             name            =   "Arial"
  186.             charset         =   0
  187.             weight          =   700
  188.             size            =   7.5
  189.             underline       =   0   'False
  190.             italic          =   0   'False
  191.             strikethrough   =   0   'False
  192.          EndProperty
  193.          ForeColor       =   &H80000008&
  194.          Height          =   252
  195.          Left            =   240
  196.          TabIndex        =   5
  197.          Top             =   360
  198.          Width           =   1572
  199.       End
  200.       Begin VB.OptionButton Option1 
  201.          Appearance      =   0  'Flat
  202.          BackColor       =   &H00C0C0C0&
  203.          Caption         =   "Male"
  204.          BeginProperty Font 
  205.             name            =   "Arial"
  206.             charset         =   0
  207.             weight          =   700
  208.             size            =   7.5
  209.             underline       =   0   'False
  210.             italic          =   0   'False
  211.             strikethrough   =   0   'False
  212.          EndProperty
  213.          ForeColor       =   &H80000008&
  214.          Height          =   252
  215.          Left            =   2520
  216.          TabIndex        =   6
  217.          Top             =   360
  218.          Width           =   1212
  219.       End
  220.       Begin VB.OptionButton Option2 
  221.          Appearance      =   0  'Flat
  222.          BackColor       =   &H00C0C0C0&
  223.          Caption         =   "Female"
  224.          BeginProperty Font 
  225.             name            =   "Arial"
  226.             charset         =   0
  227.             weight          =   700
  228.             size            =   7.5
  229.             underline       =   0   'False
  230.             italic          =   0   'False
  231.             strikethrough   =   0   'False
  232.          EndProperty
  233.          ForeColor       =   &H80000008&
  234.          Height          =   252
  235.          Left            =   2520
  236.          TabIndex        =   7
  237.          Top             =   600
  238.          Width           =   1332
  239.       End
  240.    End
  241.    Begin VB.CommandButton Command1 
  242.       Appearance      =   0  'Flat
  243.       BackColor       =   &H80000005&
  244.       Caption         =   "Exit"
  245.       BeginProperty Font 
  246.          name            =   "Arial"
  247.          charset         =   0
  248.          weight          =   700
  249.          size            =   7.5
  250.          underline       =   0   'False
  251.          italic          =   0   'False
  252.          strikethrough   =   0   'False
  253.       EndProperty
  254.       Height          =   372
  255.       Left            =   4800
  256.       TabIndex        =   8
  257.       Top             =   240
  258.       Width           =   1332
  259.    End
  260.    Begin VB.TextBox Text5 
  261.       Appearance      =   0  'Flat
  262.       BeginProperty Font 
  263.          name            =   "Arial"
  264.          charset         =   0
  265.          weight          =   700
  266.          size            =   7.5
  267.          underline       =   0   'False
  268.          italic          =   0   'False
  269.          strikethrough   =   0   'False
  270.       EndProperty
  271.       Height          =   288
  272.       Left            =   5040
  273.       TabIndex        =   4
  274.       Top             =   1440
  275.       Width           =   732
  276.    End
  277.    Begin VB.TextBox Text4 
  278.       Appearance      =   0  'Flat
  279.       BeginProperty Font 
  280.          name            =   "Arial"
  281.          charset         =   0
  282.          weight          =   700
  283.          size            =   7.5
  284.          underline       =   0   'False
  285.          italic          =   0   'False
  286.          strikethrough   =   0   'False
  287.       EndProperty
  288.       Height          =   288
  289.       Left            =   3960
  290.       TabIndex        =   3
  291.       Top             =   1440
  292.       Width           =   372
  293.    End
  294.    Begin VB.TextBox Text3 
  295.       Appearance      =   0  'Flat
  296.       BeginProperty Font 
  297.          name            =   "Arial"
  298.          charset         =   0
  299.          weight          =   700
  300.          size            =   7.5
  301.          underline       =   0   'False
  302.          italic          =   0   'False
  303.          strikethrough   =   0   'False
  304.       EndProperty
  305.       Height          =   288
  306.       Left            =   1320
  307.       TabIndex        =   2
  308.       Top             =   1440
  309.       Width           =   1812
  310.    End
  311.    Begin VB.TextBox Text2 
  312.       Appearance      =   0  'Flat
  313.       BeginProperty Font 
  314.          name            =   "Arial"
  315.          charset         =   0
  316.          weight          =   700
  317.          size            =   7.5
  318.          underline       =   0   'False
  319.          italic          =   0   'False
  320.          strikethrough   =   0   'False
  321.       EndProperty
  322.       Height          =   288
  323.       Left            =   1320
  324.       TabIndex        =   1
  325.       Top             =   960
  326.       Width           =   2772
  327.    End
  328.    Begin VB.TextBox Text1 
  329.       Appearance      =   0  'Flat
  330.       BeginProperty Font 
  331.          name            =   "Arial"
  332.          charset         =   0
  333.          weight          =   700
  334.          size            =   7.5
  335.          underline       =   0   'False
  336.          italic          =   0   'False
  337.          strikethrough   =   0   'False
  338.       EndProperty
  339.       Height          =   288
  340.       Left            =   1320
  341.       TabIndex        =   0
  342.       Top             =   480
  343.       Width           =   2772
  344.    End
  345.    Begin ResizeLibCtl.ReSize ReSize1 
  346.       Left            =   5760
  347.       Top             =   2160
  348.       _Version        =   65542
  349.       _ExtentX        =   741
  350.       _ExtentY        =   741
  351.       _StockProps     =   0
  352.       Enabled         =   -1  'True
  353.       FormMinWidth    =   0
  354.       FormMinHeight   =   0
  355.    End
  356.    Begin VB.Line Line1 
  357.       BorderWidth     =   4
  358.       X1              =   360
  359.       X2              =   6000
  360.       Y1              =   3600
  361.       Y2              =   3600
  362.    End
  363.    Begin VB.Label Label5 
  364.       Alignment       =   1  'Right Justify
  365.       Appearance      =   0  'Flat
  366.       BackColor       =   &H00C0C0C0&
  367.       BackStyle       =   0  'Transparent
  368.       Caption         =   "Zip:"
  369.       BeginProperty Font 
  370.          name            =   "Arial"
  371.          charset         =   0
  372.          weight          =   700
  373.          size            =   7.5
  374.          underline       =   0   'False
  375.          italic          =   0   'False
  376.          strikethrough   =   0   'False
  377.       EndProperty
  378.       ForeColor       =   &H80000008&
  379.       Height          =   252
  380.       Left            =   4320
  381.       TabIndex        =   9
  382.       Top             =   1440
  383.       Width           =   612
  384.    End
  385.    Begin VB.Label Label4 
  386.       Alignment       =   1  'Right Justify
  387.       Appearance      =   0  'Flat
  388.       BackColor       =   &H00C0C0C0&
  389.       BackStyle       =   0  'Transparent
  390.       Caption         =   "State:"
  391.       BeginProperty Font 
  392.          name            =   "Arial"
  393.          charset         =   0
  394.          weight          =   700
  395.          size            =   7.5
  396.          underline       =   0   'False
  397.          italic          =   0   'False
  398.          strikethrough   =   0   'False
  399.       EndProperty
  400.       ForeColor       =   &H80000008&
  401.       Height          =   252
  402.       Left            =   3120
  403.       TabIndex        =   10
  404.       Top             =   1440
  405.       Width           =   732
  406.    End
  407.    Begin VB.Label Label3 
  408.       Alignment       =   1  'Right Justify
  409.       Appearance      =   0  'Flat
  410.       BackColor       =   &H00C0C0C0&
  411.       BackStyle       =   0  'Transparent
  412.       Caption         =   "City:"
  413.       BeginProperty Font 
  414.          name            =   "Arial"
  415.          charset         =   0
  416.          weight          =   700
  417.          size            =   7.5
  418.          underline       =   0   'False
  419.          italic          =   0   'False
  420.          strikethrough   =   0   'False
  421.       EndProperty
  422.       ForeColor       =   &H80000008&
  423.       Height          =   252
  424.       Left            =   480
  425.       TabIndex        =   11
  426.       Top             =   1440
  427.       Width           =   732
  428.    End
  429.    Begin VB.Label Label2 
  430.       Alignment       =   1  'Right Justify
  431.       Appearance      =   0  'Flat
  432.       BackColor       =   &H00C0C0C0&
  433.       BackStyle       =   0  'Transparent
  434.       Caption         =   "Address:"
  435.       BeginProperty Font 
  436.          name            =   "Arial"
  437.          charset         =   0
  438.          weight          =   700
  439.          size            =   7.5
  440.          underline       =   0   'False
  441.          italic          =   0   'False
  442.          strikethrough   =   0   'False
  443.       EndProperty
  444.       ForeColor       =   &H80000008&
  445.       Height          =   252
  446.       Left            =   360
  447.       TabIndex        =   12
  448.       Top             =   960
  449.       Width           =   852
  450.    End
  451.    Begin VB.Label Label1 
  452.       Alignment       =   1  'Right Justify
  453.       Appearance      =   0  'Flat
  454.       BackColor       =   &H80000005&
  455.       BackStyle       =   0  'Transparent
  456.       Caption         =   "Name:"
  457.       BeginProperty Font 
  458.          name            =   "Arial"
  459.          charset         =   0
  460.          weight          =   700
  461.          size            =   7.5
  462.          underline       =   0   'False
  463.          italic          =   0   'False
  464.          strikethrough   =   0   'False
  465.       EndProperty
  466.       ForeColor       =   &H80000008&
  467.       Height          =   252
  468.       Left            =   600
  469.       TabIndex        =   13
  470.       Top             =   480
  471.       Width           =   612
  472.    End
  473. Attribute VB_Name = "Form1"
  474. Attribute VB_Creatable = False
  475. Attribute VB_Exposed = False
  476. Option Explicit
  477. Private Sub Command1_Click()
  478.     End
  479. End Sub
  480. Private Sub Command2_Click()
  481.     Form2.Show 1
  482. End Sub
  483. Private Sub Command3_Click()
  484.     If Label1.FontName = "Arial" Then
  485.         Label1.FontName = "Times New Roman"
  486.         Label2.FontName = "Times New Roman"
  487.         Label3.FontName = "Times New Roman"
  488.         Label4.FontName = "Times New Roman"
  489.         Label5.FontName = "Times New Roman"
  490.     Else
  491.         Label1.FontName = "Arial"
  492.         Label2.FontName = "Arial"
  493.         Label3.FontName = "Arial"
  494.         Label4.FontName = "Arial"
  495.         Label5.FontName = "Arial"
  496.     End If
  497. End Sub
  498. Private Sub Command4_Click()
  499.     Dim Temp As Integer
  500.     Option2.Left = Check1.Left
  501.     Temp = Check1.Left
  502.     Check1.Left = Option1.Left
  503.     Option1.Left = Temp
  504. End Sub
  505. Private Sub Command5_Click()
  506.     Form3.Show 1
  507. End Sub
  508. Private Sub Command6_Click()
  509.     If Command6.Caption = "Enable Form Minimum Sizing" Then
  510.         Command6.Caption = "Disable Form Minimum Sizing"
  511.         ReSize1.FormMinWidth = 4000
  512.         ReSize1.FormMinHeight = 3000
  513.         MsgBox "The smallest size you can make this form has been set to 3000 X 4000 twips.", 0, "ReSize Sample Application"
  514.     Else
  515.         Command6.Caption = "Enable Form Minimum Sizing"
  516.         ReSize1.FormMinWidth = 0
  517.         ReSize1.FormMinHeight = 0
  518.         MsgBox "The minimum form size restriction has been turned off.", 0, "ReSize Sample Application"
  519.     End If
  520. End Sub
  521. Private Sub Command7_Click()
  522.     Form4.Show 1
  523. End Sub
  524. Private Sub Command8_Click()
  525.     If Form1.WindowState = 0 Then
  526.         'VB will give you an error if
  527.         'the form is minimized or maximized
  528.         'when you try to execute this method.
  529.         ReSize1.CenterForm
  530.     End If
  531. End Sub
  532.